38888 
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AAA AA Ht St tH A 
AAA St A 
AAAS AS a a st st se 


L 
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LLLLLLLLLLLLLLL 


ad 


**F ILE**1D**COBERROR 

ccccccce 000000 88888888 EEEEEEEEEE RRRRRRRR RRRRRRRR 000000 RRRRRRRR 
cccccccc 000000 888688888 EEEEEEEEEE RRRRRRRR RRRRRRRR 000000 RRRRRRRR 

cc 00 00 88 BB EE RR RR RR RR 00 0O RR RR 

cc 00 00 6B BB EE RR RR RR RR 00 0O RR RR 

cc 00 00 88 BB EE RR RR RR RR 00 0O RR RR 

cc 00 00 6B BB EE RR RR RR RR 00 0O RR RR 

cc 00 00 688888888 EEEEEEEE RRRRRRRR RRRRRRRR 00 00 RRRRRRRR 

cc 00 00 88888888 EEEEEEEE RRRRRRRR RRRRRRRR 00 00 RRRRRRRR 

cc 00 oO 88 BB EE RR RR RR RR 00 0O RR RR 

cc 00 00 688 BB EE RR RR RR RR 00 0O RR RR 

cc 00 00 88 BB EE RR RR RR RR 00 0O RR RR eeee 

cc 00 00 88 BB EE RR RR RR RR 00 00 RR RR cece 
ccccccce 000000 88388888 EEEEEEEEEE RR RR RR RR 000000 RR RR cove 
cccccccc 000000 BBBBBBEB EEEEEEEEEE RR RR RR RR 000000 RR RR eee 

LL III] SSSSSSSS 

LL H1111 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] $s 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LLELELLLLLLE 111111 SSSSSSSS 

LLLLLLLLLL HI SSSSSSSS 
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16-Sep-1984 :0 AX-11 Bliss-32 V4.0-74 : 1 
1e-Se8=1982 99:98:08 = FANE AT Ok issc 32 ve 0-248 age 4) 


MODULE COBSERROR( 
om = "1-011" ! file: COBERROR.B32 EDIT:L81011 
= 


PETES TESTI T TTT I TTT rrirrririr icici titi titi iii titi tit iiiiii iii ty 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


He Lal SOFTWARE IS Pyrat sued UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN A ANCE WITH E ren F SUCH LICENSE AND WITH THE 
Hd Sti OF THE ABOVE COPYRIGHT NOTICE. THIS SOF Tw ARE OR ANY OTHER 
:® COPIES THEREOF my NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 


* 
* 
* 
+ 
« 
* 
> 
a 
* 
* 
'® TRANSFERRED. * 
’ 
‘ 
2 
4 
. 
* 
* 
* 
® 
. 


- 
e 
o 
o 
3 
.~J 


tt ss a a ss 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ aapoke re NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OSES SEIISLIIIE III ISTE TTT TTT TTT TPP eerie rect ric eri iti icici ii irri i iiiiii ts 


Ssssssooooeeoess 


ioe 
FACILITY: COBOL SUPPORT 


ABSTRACT 
Signals a variety of compiler-detected errors. 


sssssseee 


ENVIRONMENT: Vax-11 User Mode 


4 004 

: Boe AUTHOR: MLJ , CREATION DATE: 02-MAY-1979 

8 O04 MODIFIED BY: 

45 1-091 ~ Original, MLJ O02-MAY-1979 

4 004 1- § - Added boilerplate ond comments. RKR 15-AUGUST-1979 

4 004 1- = Make this routi ne. 5 signet rather then ou outpy RKR 21-Aug-1979 
48 004 1- = Added error COBS_ROUNOTLIN. RKR 1 T-1 

$2 00 ‘- 5 = Fetch COBDEF .REQ from RTLIN instead ~ LIBS RKR 18-SEPT-79 


ee soot FAO Q COUNT of zero in SORT-case Liasstop call 
1-007 - Fiske OWN da date pert into code PSECT since it is read-only 
R 26 


1-008 - Make fase” 4 me dls use ererets in REQUIRE file, change 
error gnessege to COBS_INVARG, cosmetic changes. 


1-009 = Remove reference to OTSS_FATINTERR. Change BADCL case to 


an an a a a A ht tk tt a a a 2 4 4 4 OOO 


PUAN & 
VERE UN 2S SeNOURUN—OOe 


oo 
oo 


| 
vain reer COBRTL SRETCOBERROR 039; 1 oa) | 
pefecence. ngy error condition COBS_CALFAI. | 


' 
i 

i 1-010 = Added error type COBSK ERR DBARG. Also caused an entry to be 
addee to own storage of FAC_ERR_CODES For Cops cuppgov R° os well 
& 

le 


' s defining it as an craerait "Taherat, 
! 1-011 - Changed GOTNO_ALT to be GOTO_ALT. This had been in error in this 
' file as well as in COBMSG. (CB i-APR-82 


St es 
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1-Sep-19 4 99:08:06 AX-1 . 


1 Blis 
14-Sep-1984 COBRTL.SRC 


| SWITCHES 


SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


{ LINKAGES 

NONE 

i TABLE OF CONTENTS: 
FORWARD ROUTINE 
COBSERROR : NOVALUE ; 
i INCLUDE FILES 


REQUIRE "RTLIN:RTLPSECT’ ; ! Macros for defining psects 

REQUIRE "RTLIN:COBDEF* ; ! Definition of internal error msgs 
MACROS 

NONE 

EQUATED SYMBOLS 

LITERAL 


NUM_MSGS = COBSK_ERR_MAX = COBSK_ERR_MIN + 1 ; ! No. of msgs 


: PSECT DECLARATIONS: 
DISPATCH_PSECTS (COB) ; 


Make OWN data fall into _CODE psect 
' 
EXTERNAL REFERENCES 


EXTERNAL LITERAL 


_GOTO_ALT ! GO TO with no preceding ALTER 
COBS-RECATTPER, ! Recursive activation of PERFORM 
COBS_NESERRPER, ! Nesting error for PERFORM ; 
COB$_TIMOVELON, ! TIMES value overflows longword 
COB$_OCCDEPOVE, ' OCCURS DEPENDING value overflows longword 
COB$_SUBOVELON, ' Subscript overflows longword 
COBS_ERRDURSOR, ! Error Gur ing SORT 
COB$_UNEINSCON, ! INSPECT CON EATING lengths unequal 
COBS_CALFAI, ' Failure CALLing routine (!AS) 
COBS_EXPDBOVER, : Freres ton value in data base argument List overflows longword 
COB$_INVARG ! Invalid argument 
COBS"FATINTERR 3 ! Fatal internal error -- not enough args 


D 10 
5 geen 1e=8ee= 138s 93:98:05 Hewat a eScoeNRat g$5. 1 Page 1 3$ 


= 


“a 660 1! 

s i $ 28) 1 ! The following non-standard gt ty of the OWN declaration is 

= 3 6 § 1: pecessary to avoid warnings from the BLISS comp tee The OWN variable 
eh 665 1 ! FAC_LERR_CODES is preset to values defined via EXTERNAL LITERALSs, and 

; 150 664 1 ! causes Compiler to generate warnings if they are not declared prior 

: } 1 232 : to usage as INITIAL constants. 

; : e8? OwN 

: 135 69 1 FACLERR_CODES: VECTOR CNUM_MSGS) 

; ; of : INITIAL ¢ 

; 138 ore 1 COB$_GOTO.ALT , ! GO TO with no preceding ALTER 

: 139 6735 1 COBS_RECACTPER , ' Recursive activation of PERFORM 

; 140 bee 1 COBS_NESERRPER , ! Nesting error for PERFORM 

; (1461 fs 6% COBS_TIMOVELON , ! TIMES value overflows longword 

: 10g 4) 1 COBS_OCCDEPOVE , ! OCCURS DEPENDING value overflows longword 
1B | ERRECEMRENEAB : | ubser apt ues onoers 

> 145 0679 1 COBS_UNEINSCON , i INSPECT CONVERTING Lengths unequal 

; 146 0680 1 COBS_CALFAI, ! Failure in CALL ine routine (!AS) 

: ‘ei se : FSS _ERPOBUVER ! Expression value in data base argument List overflows longword 
: 149 0685 1 DECLARE_PSECTS (COB) ; ! Declare psects for COBS facility 
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uw 
PIII NIA at at a rt rt rt tt a a a dd dd od 
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WIAA ROPONONONONONUNIND 


N— 


1S$e-1986 99:06:04 yaKctt Bling 


GLOBAL ROUTINE COBSERROR(WHICH,AUX_INFO): NOVALUE= 


FUNCTIONAL DESCRIPTION 


Signals a on ey 4 of compiler-detected errors. Most are 
simply signaled based on error code supplied. Two errors 
have eget ional information provided and this is signaled 
as well. 


FORMAL PARAMETERS: 


WHICH. rl.v Basic error number 


AUX_INFO.rl.v (Optional parameter) 
if .WHICH = COBSK_ERR_SORT 
then AUX INFO.rl.v = SORT error number. 
if .WHICH = COBSR_ERR_BADCL 
then AUX_INFOvra.v = addr. of name 
descriptor not 
ound. 


IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 


SIDE EFFECTS: 


NONE 


BEGIN 


ILTIN 
ACTUAL COUNT; 


!<BLF /PAGE> 


4.0-74 P 
OR.B32;1 — (33 


A 


| F 10 
RROR 16-Sep-1984 00:06:0 AX-11 Bliss-32 V4.0-74 
eit 18-80 8=138e 99:98:04 COBRTL. RCICOBERROR.B3 31 
IF ot ammenaeles LSS 1 THEN SIGNAL_STOP (COBS_FATINTERR) 
BEGIN 
Case on the error type 
CASE = WHICH FROM COBSK_ERR_MIN TO COBSK_ERR_MAX OF 
— A ° 
— a ° 
~ERR_P . 
= =? 
= -? ° 
_INSPE 
“DBARGS: 
i General case 


bad 
RKRRRRKRKRRRAR = 
Mmnmmmmrmnrn 


GIN 
yp; SLONALASTOP (.FACLERR CODESC.WHICHI) ; 


CCOBSK_ERR_SORT): 
BEGIN 


' SORT error case 
ND SIGNAL_STOP (.FAC_ERR_CODESC.WHICH], 0, eAUX_INFO) ; 


iw IAAWWIMIANI RIT NINININININIDN 2 2 Ot OO OO oO oO 
SSeS AEW—OOSNONE WY OOO NAP O DS SRO = 
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76 
$ 76 CCOBSK_ERR_BADCLI: 
§ 76 BEGIN 
76 ! 
§ 8 Bad CALL case 
? a - SIGNAL_STOP (.FAC_ERR_CODESC.WHICH], 1, .AUX_INFO) ; 
41 77 ; 
4 77 
4 77 
44 77 CINRANGE, OUTRANGE): 
“2 aA BEGIN 
4 A Invalid value for .WHICH (internal error) 
49 78 SIGNAL_STOP (COBS_INVARG) ; 
50 7 4 ND; 
51 7 
5 784 TES; 
5 785 END; 
54 7 END; 1 of routine COBSERROR 


-TITLE COBSERROR 


rayne HERES ONG) UNGER MMAR MST, 
IDENT \1-011\ 


«PSECT _COBSCODE,NOWRT, SHR, PIC,2 
000000006 000000006 000000006 000000006 000000006 000000006 00000 FAC_ERR =CORES: 


255 0787 0 END ELUDOM 


: COB$_GOTO_ALT, COBS_RECACTPER, - : 
000000006 000000006 000000006 000000006 00018 COBS-NESERRPER, COBS_TIMOVELON, - F 
COBS-OCCDEPOVE, COB$-SUBOVELON, - : 
COB$~ERRDURSOR 5°98 UNE INSCON, - : 
COBS-CALFAI, COB$_EXPDBOVER : 
. -EXTRN COB$_GOTO_ALT, COBS RECACTPER 
; -EXTRN COBS“NESERRPER, COBS_TIMOVE 
tg : -EXTRN COBS-OCCDEPOVE, €0B$~SUBOVELON 
~ -EXTRN COBS_ERRDURSOR, COBS$-UNE INSCON 

-EXTRN COBS-CALFAI, COBS$_EXPDBOVER 

-EXTRN COBS"INVARG, COBS"FATINTERR 
000¢ 900 .ENTRY COBSERR OR. agave R2,R3 : 
53 000000006 00 3 000 VAB_ LIBSSTOP : 
6C 95 000 TSTB =: CAP?) : 
08 12 00008 BNEQ 1$ : 
000000006 of DD 0000 PUSHL #COBS_FATINTERR : 
8 11 0001 BRB 4$ : 
52 04 AC DO 00015 1$ OVL § WHICH, R2 ; 
09 00 52 CF 00019 CASEL R2, #0, #9 : 
001¢ 001¢ 001C 001¢ 0001D 2$ WORD $-28.° ; 
001¢ 0024 001¢ 001¢ 00025 $-2$,- : 
001¢ 0028 00020 $- $.- : 
$-2$,- 3 
$- $.- e 
$3- $,- 3 
$-2$,- 3 
$3753" : 
000000006 ef DD 00031 PUSHL #COBS$_INVARG : 
4 11 00037 RB : 
9B AF42 DD 00039 3$: PUSHL FAC _ERR CODESCR2] : 
63 01 FB 00030 4$: CALLS » LIBSST : 
04 00040 RET : 
08 AC DD 00041 5$: PUSHL  AUX_INFO : 
ze D4 00044 CLRL. = = (SP) : 
05 11 046 BRB 7$ ; 
08 AC DD 00048 6$: PUSHL  AUX_INFO ; 
01 DD 00048 PUSHL @# ; 
87 AFag DD 0004D 7$: PUSHL FAC _ERR_CODES(R2] ; 
63 03 FB B002) CALLS LIBSSTOP 5 
04 00054 RET : 

3; Routine Size: 85 bytes, Routine Base: _COBSCODE + 0028 


COREE RROR ISoBeoc19Be 00:06:04 YAKGTT BL ing=52 va0n742 Page 8 


-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
_COBSCODE 125 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1IS$: COBERROR/OBJ=0BJ$:COBERROR MSRC$:COBERROR/UPDATE=(ENH$: COBERROR) 
Size: 85 fade. + ,{* data bytes 
un Time: 
Elapsed Time: 09:11 OF 8 
Lines/CPU Min: 49056 
Saeeay A a ge 3730 


pnery Used: 53 hee 
Compilation Complete 


AL EQUIPMENT CORPOR 
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